home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / 4B.DSK / ABM START.bas < prev    next >
BASIC Source File  |  2014-09-09  |  4KB  |  105 lines
  1. 10  TEXT : HOME : POKE 32000,96
  2. 20  POKE  -16304,0: POKE  -16302,0: POKE  -16297,0
  3. 30  PRINT "<CTRL-D>BLOADPIC"
  4. 40  PRINT "<CTRL-D>BLOADCONTROLS"
  5. 50  POKE  -16368,0: GET A$
  6. 60  POKE  -16368,0
  7. 70  IF A$ =  CHR$(27)  THEN 100
  8. 80  PRINT "<CTRL-D>BRUNABM"
  9. 90  PRINT "<CTRL-D>NOMON C,I,O"
  10. 100  DIM P(4,4)
  11. 110  TEXT : HOME 
  12. 120  VTAB 8: HTAB 12: PRINT "ABM GAME CONTROL": HTAB 15: PRINT "ADJUSTMENT"
  13. 130  VTAB 16: HTAB 5: PRINT "COPYRIGHT 1980, MUSE SOFTWARE": HTAB 10: PRINT "ALL RIGHTS RESERVED"
  14. 140  PRINT "<CTRL-D>BLOAD BKUP.CONTROLS"
  15. 150  VTAB 23: PRINT "        PRESS A KEY TO BEGIN "
  16. 160  POKE  -16368,0: GET A$: PRINT 
  17. 170  HOME 
  18. 180  VTAB 8: PRINT "   THIS PROGRAM ADJUSTS THE CONTROL": PRINT 
  19. 190  PRINT "SECTIONS OF THE ABM GAME PROGRAM TO": PRINT 
  20. 200  PRINT "MATCH YOUR GAME CONTROLLER.": PRINT 
  21. 210  PRINT "  MOVE THE GAME CONTROLLER AS THOUGH": PRINT 
  22. 220  PRINT "YOU WERE CONTROLLING YOUR TARGET": PRINT 
  23. 230  PRINT "MARKER AS THE ADJUSTER DIRECTS YOU."
  24. 240  VTAB 23: PRINT "         PRESS A KEY "
  25. 250  POKE  -16368,0: GET A$
  26. 260  HOME 
  27. 270  PRINT "MOVE YOUR GAME": PRINT "CONTROLS TO": PRINT "THE UPPER LEFT": PRINT "THEN PRESS A KEY."
  28. 280  POKE  -16368,0: GET A$:R = 1: GOSUB 830
  29. 290  HOME 
  30. 300  PRINT "                        MOVE YOUR GAME": PRINT "                           CONTROLS TO "
  31. 310  PRINT "                       THE UPPER RIGHT ": PRINT "                     THEN PRESS A KEY. "
  32. 320  POKE  -16368,0: GET A$:R = 2: GOSUB 830
  33. 330  HOME : VTAB 16
  34. 340  PRINT "MOVE YOUR GAME": PRINT "CONTROLS TO": PRINT "THE LOWER LEFT": PRINT "THEN PRESS A KEY."
  35. 350  POKE  -16368,0: GET A$:R = 3: GOSUB 830
  36. 360  HOME : VTAB 16
  37. 370  PRINT "                        MOVE YOUR GAME ": PRINT "                           CONTROLS TO "
  38. 380  PRINT "                       THE LOWER RIGHT ": PRINT "                     THEN PRESS A KEY. "
  39. 390  POKE  -16368,0: GET A$:R = 4: GOSUB 830
  40. 400  HOME 
  41. 410 PA = 1:PB = 2:PC = 3:PD = 4: GOSUB 860
  42. 420 HP = PP
  43. 430  POKE 781,PP -1
  44. 440  POKE 787,PQ
  45. 450 PA = 1:PB = 3:PC = 2:PD = 4: GOSUB 860
  46. 460  POKE 790,PP -1
  47. 470 VP = PP
  48. 480  POKE 796,PQ
  49. 490  HOME 
  50. 500 R = 1: GOSUB 950
  51. 510  VTAB 16: PRINT "   PRESS THE BUTTON THAT FIRES": PRINT "   THE OUTER AND CENTER MISSILES."
  52. 520  VTAB 20: PRINT "OUTER             CENTER         OUTER"
  53. 530 R = 2: GOSUB 1000
  54. 540  POKE 801,PP -1: POKE 813,128 -PQ
  55. 550  HOME : VTAB 13: PRINT "     LET UP ON IT!"
  56. 560 R = 2: GOSUB 950
  57. 570 PP = 0
  58. 580  FOR Q = 1 TO 3
  59. 590  IF P(Q,2) = P(Q,1)  THEN 610
  60. 600 PP = Q
  61. 610  NEXT Q
  62. 620  IF PP >0  THEN 550
  63. 630  HOME 
  64. 640  HOME 
  65. 650  VTAB 16: PRINT "    NOW PRESS THE BUTTON THAT"
  66. 660  PRINT "    FIRES THE INNER MISSILES."
  67. 670  VTAB 20: PRINT "        INNER            INNER"
  68. 680 R = 3: GOSUB 1000
  69. 690  POKE 827,PP -1: POKE 839,128 -PQ
  70. 700 IM = PP
  71. 710  HOME : VTAB 16: PRINT "        OKAY, LET GO.": PRINT "      THE GAME IS STARTING!"
  72. 720  PRINT "<CTRL-D>BSAVE CONTROLS,A$300,L$60"
  73. 730  PRINT : PRINT "<CTRL-D>BRUNABM"
  74. 740  HOME : VTAB 10
  75. 750  PRINT "          THERE IS A PROBLEM."
  76. 760  PRINT 
  77. 770  PRINT "  YOU MOVED ONLY ONE GAME PADDLE.": PRINT 
  78. 780  PRINT "  YOU NEED TWO PADDLES OR A JOYSTICK": PRINT 
  79. 790  PRINT "  TO PLAY THIS GAME!"
  80. 800  VTAB 23: PRINT "    PRESS A KEY TO START OVER.": GET A$
  81. 810  GOTO 260
  82. 820 OM = PP
  83. 830  REM  
  84. 840  FOR Q = 1 TO 4:P(Q,R) =  PDL(Q -1): NEXT Q
  85. 850  RETURN 
  86. 860 PP = 0
  87. 870 MX = 0
  88. 880  FOR Q = 1 TO 4
  89. 890 DI = P(Q,PA) +P(Q,PC) -(P(Q,PB) +P(Q,PD))
  90. 900  IF  ABS(DI) < =  ABS(MX)  THEN 920
  91. 910 MX = DI:PP = Q
  92. 920  NEXT Q
  93. 930 PQ = 0: IF MX >0  THEN PQ = 255: RETURN 
  94. 940  RETURN 
  95. 950  FOR Q = 1 TO 3
  96. 960 P(Q,R) = 0
  97. 970  IF  PEEK(Q -16288) >127  THEN P(Q,R) = 128
  98. 980  NEXT Q
  99. 990  RETURN 
  100. 1000  GOSUB 950:PP = 0:PQ = 0
  101. 1010  FOR Q = 1 TO 3: IF P(Q,R) = P(Q,1)  THEN 1030
  102. 1020 PP = Q:PQ = P(Q,R)
  103. 1030  NEXT Q
  104. 1040  IF PP = 0  THEN 1000
  105. 1050  RETURN